home *** CD-ROM | disk | FTP | other *** search
/ The National Palace Museum Experience / The National Palace Museum Experience.iso / Programs / Panorama.dxr / 00095_Control handlers.ls < prev    next >
Encoding:
Text File  |  1998-11-19  |  8.4 KB  |  176 lines
  1. global contentsprite, roomnumber, rectlist, actslist, copyrectlist, anglelist, masternode, masternodeleftpos, masternodetoppos, masterangle
  2.  
  3. on installcontrol
  4.   case roomnumber of
  5.     "000":
  6.       set rectlist to [rect(23, 40, 29, 45), rect(23, 0, 29, 5), rect(0, 19, 6, 24), rect(0, 0, 0, 0), rect(59, 19, 65, 24), rect(70, 34, 76, 39)]
  7.       setactslist()
  8.       set anglelist to [145, 137, 190, 0, 180, 100]
  9.       set masternodeleftpos to 275
  10.       set masternodetoppos to 177
  11.       set masternode to 1
  12.       set masterangle to 7.90000000000000036
  13.     "105":
  14.       set rectlist to [rect(126, 7, 132, 12), rect(134, 16, 140, 21), rect(137, 36, 143, 41), rect(111, 38, 117, 43), rect(70, 8, 76, 13), rect(44, 10, 50, 15), rect(86, 61, 92, 66), rect(24, 0, 30, 5), rect(0, 37, 6, 42), rect(50, 32, 56, 37), rect(43, 37, 49, 42), rect(70, 38, 76, 43), rect(98, 32, 104, 37), rect(95, 10, 101, 15), rect(5, 2, 11, 7), rect(81, 11, 87, 16), rect(118, 85, 124, 90), rect(129, 94, 135, 99), rect(93, 94, 99, 99)]
  15.       setactslist()
  16.       set anglelist to [340, 70, 93, 235, 135, 259, 183, 48, 20, 0, -40, -25, 120, 92, -103, 217, 137, 230, 233]
  17.       set masternodeleftpos to 206
  18.       set masternodetoppos to 133
  19.       set masternode to 9
  20.       set masterangle to 157.51600000000001955
  21.     "106":
  22.       set rectlist to [rect(0, 19, 6, 24), rect(69, 64, 75, 69), rect(72, 0, 78, 5), rect(38, 43, 44, 48)]
  23.       setactslist()
  24.       set anglelist to [310, 200, 20, 295]
  25.       set masternodeleftpos to 250
  26.       set masternodetoppos to 121
  27.       set masternode to 1
  28.       set masterangle to 109.89900000000000091
  29.     "109":
  30.       set rectlist to [rect(0, 34, 6, 39), rect(36, 0, 42, 5), rect(84, 24, 90, 29)]
  31.       setactslist()
  32.       set anglelist to [260, -90, 180]
  33.       set masternodeleftpos to 242
  34.       set masternodetoppos to 146
  35.       set masternode to 1
  36.       set masterangle to 47.43500000000000227
  37.     "111":
  38.       set rectlist to [rect(29, 20, 35, 25), rect(46, 6, 52, 11), rect(44, 48, 50, 53), rect(9, 3, 15, 8), rect(0, 36, 6, 41), rect(89, 48, 95, 53), rect(85, 0, 91, 5)]
  39.       setactslist()
  40.       set anglelist to [75, 80, 220, 110, -30, -40, 100]
  41.       set masternodeleftpos to 259
  42.       set masternodetoppos to 135
  43.       set masternode to 3
  44.       set masterangle to 37.36299999999999955
  45.     "202":
  46.       set rectlist to [rect(123, 0, 129, 5), rect(0, 0, 6, 5)]
  47.       setactslist()
  48.       set anglelist to [-25, 140]
  49.       set masternodeleftpos to 207
  50.       set masternodetoppos to 132
  51.       set masternode to 2
  52.       set masterangle to 299.91099999999994452
  53.     "203":
  54.       set rectlist to [rect(0, 1, 6, 6), rect(44, 19, 50, 24), rect(88, 0, 94, 5), rect(123, 0, 129, 5)]
  55.       setactslist()
  56.       set anglelist to [60, -80, 140, 105]
  57.       set masternodeleftpos to 222
  58.       set masternodetoppos to 127
  59.       set masternode to 1
  60.       set masterangle to 183.59200000000001296
  61.     "204":
  62.       set rectlist to [rect(23, 74, 29, 79), rect(55, 45, 61, 50), rect(0, 0, 6, 5)]
  63.       setactslist()
  64.       set anglelist to [73, 235, 210]
  65.       set masternodeleftpos to 289
  66.       set masternodetoppos to 185
  67.       set masternode to 1
  68.       set masterangle to 297.38999999999998636
  69.     "205":
  70.       set rectlist to [rect(73, 1, 79, 6), rect(72, 54, 78, 59), rect(51, 7, 57, 12), rect(23, 0, 29, 5), rect(2, 54, 8, 59), rect(0, 38, 6, 43)]
  71.       setactslist()
  72.       set anglelist to [100, 255, -75, 140, 0, 70]
  73.       set masternodeleftpos to 311
  74.       set masternodetoppos to 102
  75.       set masternode to 1
  76.       set masterangle to 76.13700000000000045
  77.     "207":
  78.       set rectlist to [rect(39, 25, 45, 30), rect(70, 22, 76, 27), rect(70, 37, 76, 42), rect(34, 6, 40, 11), rect(60, 4, 66, 9), rect(88, 3, 94, 8), rect(104, 9, 110, 14), rect(90, 25, 96, 30), rect(90, 44, 96, 49), rect(97, 72, 103, 77), rect(102, 84, 108, 89), rect(79, 103, 85, 108), rect(64, 80, 70, 85), rect(69, 71, 75, 76), rect(0, 26, 6, 31), rect(4, 0, 10, 5)]
  79.       setactslist()
  80.       set anglelist to [-10, 153, 45, -20, 20, 280, 120, 150, 60, 290, 0, 210, 185, -20, 0, 180]
  81.       set masternodeleftpos to 231
  82.       set masternodetoppos to 90
  83.       set masternode to 16
  84.       set masterangle to 300
  85.     "211":
  86.       set rectlist to [rect(70, 72, 76, 77), rect(71, 89, 77, 94), rect(47, 94, 53, 99), rect(0, 89, 6, 94), rect(39, 38, 45, 43), rect(40, 13, 46, 18), rect(76, 0, 82, 5), rect(99, 21, 105, 26), rect(94, 40, 100, 45)]
  87.       setactslist()
  88.       set anglelist to [220, 230, 300, 180, 130, 150, -120, 0, 140]
  89.       set masternodeleftpos to 289
  90.       set masternodetoppos to 161
  91.       set masternode to 1
  92.       set masterangle to 210.6220000000000141
  93.     "304":
  94.       set rectlist to [rect(0, 0, 6, 5), rect(34, 1, 40, 6), rect(59, 2, 65, 7), rect(72, 25, 78, 30), rect(61, 52, 67, 57), rect(2, 37, 8, 42)]
  95.       setactslist()
  96.       set anglelist to [-50, -90, -40, -45, 175, 220]
  97.       set masternodeleftpos to 233
  98.       set masternodetoppos to 100
  99.       set masternode to 1
  100.       set masterangle to 34.62599999999999767
  101.     "305":
  102.       set rectlist to [rect(47, 19, 53, 24), rect(65, 41, 71, 46), rect(7, 44, 13, 49), rect(0, 20, 6, 25), rect(13, 0, 19, 5)]
  103.       setactslist()
  104.       set anglelist to [300, 210, 320, 241, 180]
  105.       set masternodeleftpos to 245
  106.       set masternodetoppos to 128
  107.       set masternode to 4
  108.       set masterangle to 344.16899999999998272
  109.     "306":
  110.       set rectlist to [rect(55, 24, 61, 29), rect(40, 0, 46, 5), rect(0, 27, 6, 32), rect(21, 27, 27, 32), rect(48, 42, 54, 47), rect(11, 42, 17, 47), rect(16, 1, 22, 6)]
  111.       setactslist()
  112.       set anglelist to [335, 160, 93, -10, 260, 270, 90]
  113.       set masternodeleftpos to 296
  114.       set masternodetoppos to 152
  115.       set masternode to 5
  116.       set masterangle to 138.9410000000000025
  117.     "307":
  118.       set rectlist to [rect(117, 40, 123, 45), rect(89, 51, 95, 56), rect(74, 42, 80, 47), rect(67, 73, 73, 78), rect(30, 78, 36, 83), rect(44, 42, 50, 47), rect(14, 43, 20, 48), rect(31, 26, 37, 31), rect(47, 15, 53, 20), rect(16, 14, 22, 19), rect(0, 27, 6, 32), rect(35, 1, 41, 6), rect(66, 0, 72, 5), rect(56, 27, 62, 32), rect(93, 19, 99, 24), rect(163, 34, 169, 39), rect(141, 46, 147, 51), rect(160, 67, 166, 72), rect(138, 12, 144, 17)]
  119.       setactslist()
  120.       set anglelist to [-30, -43, 180, -80, 0, 170, 160, 115, 190, -70, -120, 200, 220, -70, 60, 180, 160, 40, 230]
  121.       set masternodeleftpos to 331
  122.       set masternodetoppos to 153
  123.       set masternode to 17
  124.       set masterangle to 82.59900000000000375
  125.     "308":
  126.       set rectlist to [rect(79, 47, 85, 52), rect(97, 38, 103, 43), rect(59, 6, 65, 11), rect(15, 2, 21, 7), rect(2, 6, 8, 11), rect(0, 45, 6, 50), rect(35, 47, 41, 52), rect(125, 54, 131, 59), rect(117, 18, 123, 23), rect(136, 0, 142, 5)]
  127.       setactslist()
  128.       set anglelist to [-50, -50, 140, 140, 170, 170, 190, 90, -100, 110]
  129.       set masternodeleftpos to 332
  130.       set masternodetoppos to 170
  131.       set masternode to 8
  132.       set masterangle to 286.56299999999998818
  133.     "311":
  134.       set rectlist to [rect(17, 0, 23, 5), rect(0, 42, 6, 47), rect(23, 50, 29, 55), rect(73, 43, 79, 48), rect(89, 13, 95, 18)]
  135.       setactslist()
  136.       set anglelist to [120, -50, -60, -90, 180]
  137.       set masternodeleftpos to 249
  138.       set masternodetoppos to 105
  139.       set masternode to 1
  140.       set masterangle to 186.21899999999999409
  141.     "312":
  142.       set rectlist to [rect(77, 50, 83, 55), rect(54, 31, 60, 36), rect(71, 0, 77, 5), rect(46, 8, 52, 13), rect(48, 65, 54, 70), rect(23, 65, 29, 70), rect(0, 43, 6, 48), rect(0, 24, 6, 29), rect(16, 7, 22, 12)]
  143.       setactslist()
  144.       set anglelist to [110, 245, 0, -90, -40, -30, 60, 60, 160]
  145.       set masternodeleftpos to 311
  146.       set masternodetoppos to 150
  147.       set masternode to 1
  148.       set masterangle to 356.75999999999999091
  149.     "314":
  150.       set rectlist to [rect(0, 41, 6, 46), rect(82, 0, 88, 5)]
  151.       setactslist()
  152.       set anglelist to [130, 230]
  153.       set masternodeleftpos to 314
  154.       set masternodetoppos to 113
  155.       set masternode to 2
  156.       set masterangle to 139.35800000000000409
  157.     "315":
  158.       set rectlist to [rect(0, 0, 6, 5), rect(68, 30, 74, 35), rect(68, 30, 74, 35)]
  159.       setactslist()
  160.       set anglelist to [50, 0, 20]
  161.       set masternodeleftpos to 241
  162.       set masternodetoppos to 113
  163.       set masternode to 1
  164.       set masterangle to 125.11299999999998533
  165.   end case
  166.   set copyrectlist to duplicate(rectlist)
  167.   addcontrol(contentsprite, rectlist, actslist, #up)
  168. end
  169.  
  170. on setactslist
  171.   set actslist to []
  172.   repeat with counter = 1 to count(rectlist)
  173.     append(actslist, "JumptoNode" && counter)
  174.   end repeat
  175. end
  176.